home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 May / PCWMAY06.iso / Software / Resources / PaperCut Quota 6.1 / pc-setup.exe / {app} / WebAdmin / default.asp < prev    next >
Text File  |  2005-07-05  |  3KB  |  89 lines
  1. <%@ Language=VBScript %>
  2. <%' (c) Copyright 1999-2004 PaperCut Software Pty. Ltd. %>
  3. <!-- #include file="includes/PCCommon.inc" -->
  4. <!--#include file="includes/header.inc" -->
  5. <%
  6.     Dim objPCWeb
  7.     Set objPCWeb = Server.CreateObject("PCWebAdmin.PCWebUsers")
  8.     If objPCWeb.Error Then
  9.         WriteErrorMessage objPCWeb.ErrorDescription
  10.     End If
  11.  
  12.     if Not gblnIsLoggedIn then
  13.         WriteErrorMessage GetText("ErrorUserNotLoggedIn") & " " & GetText("AnonAccessDisabled")
  14.  
  15.     else
  16.         '''''''''''''''''''''''''''''''''''''''
  17.         ''''' Start of User Detail Screen '''''
  18.         '''''''''''''''''''''''''''''''''''''''
  19. %>
  20.  
  21.  
  22. <h1><%=GetText("MySummary")%></h1>
  23.  
  24. <%
  25.     ' Find the details of the user
  26.     objPCWeb.SeekUser(gstrLoggedInUser)
  27.     if (UCase(objPCWeb.UserName) <> UCase(gstrLoggedInUser)) then
  28.         ' No match.
  29.  
  30.         WriteErrorMessage GetTextReplace("ErrorCantFindUser", Array(gstrLoggedInUser))
  31.     Else
  32. %>
  33.  
  34. <FORM ACTION="default.asp" METHOD="POST" id=form1 name=form1>
  35. <INPUT type="hidden" name=strUserName value="<%= gstrLoggedInUser%>">
  36. <INPUT type="hidden" name=blnSubmitted value="T">
  37.   <TABLE class="webAdmin" width="500">
  38.     <TR class="evenRow" >
  39.       <TH width="150"><%=GetText("Username")%>:</TH>
  40.       <TD width="250"><%= objPCWeb.UserName %></TD>
  41.     </TR>
  42.     <TR class="oddRow">
  43.       <TH width="150"><%=GetText("Credit")%>:</Th>
  44.       <TD align="left" width="250"><%= objPCWeb.CreditText %></TD>
  45.     </TR>
  46.     <TR class="evenRow">
  47.       <TH width="150"><%=GetText("PagesPrinted")%>:</TH>
  48.       <TD align="left" width="250">
  49.                 <%= FormatNumber(objPCWeb.PagesPrinted, 0, true, false, true) %>
  50.     </TR>
  51. <% If gblnHasNetCharging or gblnShowUserNetUsageTotals Then %>
  52.     <TR class="oddRow">
  53.       <TH width="150"><%=GetText("NetDataUsed")%>:</TH>
  54.       <TD align="left" width="250">
  55.                 <%= objPCWeb.TotalMBText & " " & GetText("MBAbbr") %>
  56.             </TD>
  57.     </TR>
  58.         <TR class="evenRow">
  59.       <TH width="150"><%=GetText("NetTimeUsed")%>:</TH>
  60.       <TD align="left" width="250">
  61.                 <%= objPCWeb.TotalNetHoursText & " " & GetText("HoursAbbr")%>
  62.             </TD>
  63.     </TR>
  64. <% End If %>
  65.     <TR class="oddRow">
  66.       <TH width="150" ><%=GetText("Privilege")%>:</TH>
  67.       <TD width="250" align="left">
  68.               <% if objPCWeb.Unrestricted then %>
  69.                     <%=GetText("Unrestricted")%>
  70.                 <% else %>
  71.                     <%=GetText("Restricted")%>
  72.                 <% end if %>
  73.       </TD>
  74.     </TR>
  75.   </TABLE>
  76. </FORM>
  77.  
  78.  
  79. <%
  80.  
  81.         '''''''''''''''''''''''''''''''''''''
  82.         ''''' End of User Detail Screen '''''
  83.         '''''''''''''''''''''''''''''''''''''
  84.         End If
  85.     End If
  86.     Set objPCWeb = nothing
  87. %>
  88.  
  89. <!--#include file="includes/footer.inc" -->